Imports GTSSystem.BLL

Partial Class GTSWeb_Admin_AddClientAdminPage
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
    Protected Sub btnAddClientAdmin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddClientAdmin.Click

        Try
            Dim ClientManager As New GTSSystem.BLL.Client
            ClientManager.CreateClientBei(txtClientName.Text, txtContractStartDate.Text, txtContractEndDate.Text, _
                                           txtContactName.Text, txtPhone.Text, txtFax.Text, txtEmail.Text, _
                                           txtStreetAddress.Text, txtCity.Text, txtState.Text, txtCountry.Text, _
                                           txtPostalCode.Text)


            'btnAddClientAdmin.Visible = False
            clearPage()


        Catch ex As Exception

        End Try

        'Server.Transfer("welcomeMessage.aspx")

    End Sub

  

    'Protected Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
    '    txtClientName.Text = ""
    '    txtContactName.Text = ""
    '    txtContractStartDate.Text = ""
    '    txtContractEndDate.Text = ""
    '    txtPhone.Text = ""
    '    txtFax.Text = ""
    '    txtEmail.Text = ""
    '    txtStreetAddress.Text = ""
    '    txtCity.Text = ""
    '    txtState.Text = ""
    '    txtCountry.Text = ""
    '    txtPostalCode.Text = ""
    '    btnAddClientAdmin.Visible = True


    'End Sub

    Public Sub clearPage()
        txtClientName.Text = ""
        txtContactName.Text = ""
        txtContractStartDate.Text = ""
        txtContractEndDate.Text = ""
        txtPhone.Text = ""
        txtFax.Text = ""
        txtEmail.Text = ""
        txtStreetAddress.Text = ""
        txtCity.Text = ""
        txtState.Text = ""
        txtCountry.Text = ""
        txtPostalCode.Text = ""
        btnAddClientAdmin.Visible = False

    End Sub
End Class


         